home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / rfix0704.zip / BULLET6 next >
Text File  |  1992-07-05  |  10KB  |  258 lines
  1. ====[ Fixes to RBBS-PC 17.4  ]========
  2.  
  3. Last Mod:  KG070402
  4.  
  5. Note:  BASE is RBBS 17.4
  6.  
  7. CONVENTIONS:
  8.     The changes are assigned numbers that  correspond  to  the
  9.     month,  day, and order in which they were made.  Any mods
  10.     are dated following the modification  description.   The
  11.     lines   of   source   code  that  are  changed/modified/added  are
  12.     designated by the comment beginning in column 70 of "' iiMMDDnn"
  13.     where ii is the initials of the person providing the change
  14.     and nn is the number of the change (01, 02, ...).
  15.  
  16. Latest Downloadable Fixes:  RFIX0704.ZIP
  17. -------------------------------------------------------------------
  18. RBBS-PC.EXE         06-21-92   9:00 PM EST  Release of 17.4
  19. --------------------------------------------------------------------
  20.                             Summary
  21.  
  22. EXE   MOD       Short Description
  23. ---- --------   -----------------
  24. RBBS KG070401  UTIL.HLP refers to "B)aud change" not "B)ank time"
  25. RBBS RH070402  Get untrapped error when timeout looking at callers file
  26. RBBS RH070401  Possible for activity to be logged to wrong callers file
  27. RBBS BH070401  [CBAUD] sometimes not working with external protocol
  28. RBBS KG062401  Unable to download marked files in personal directory
  29. RBBS KG062301  Msg scan/topic scan not operating same as Read
  30.  
  31. Contributors include:
  32.  
  33.      BH - Bob Hampton
  34.      KG - Ken Goosens
  35.      RH - Ray Horton
  36.  
  37. ------------------------[ KG070401]-------------------------
  38.  
  39. Problem:  The UTIL.HLP refers to "B)aud change" when this has
  40. become "B)ank time".
  41.  
  42. Solution:  a replacement UTIL.HLP is provided.
  43.  
  44. ------------------------[ RH070402]-------------------------
  45.  
  46. Problem:  When viewing a callers file and timeout at the More prompt,
  47. get untrapped error.
  48.  
  49. Solution:  Change RBBSSUB3.BAS as follows:
  50.  
  51. 57100 IF INSTR(ZOutTxt$,"LOGON DENIED") OR INSTR(ZOutTxt$,"Lvl ")THEN _
  52.          IF NOT ZSysOp THEN _
  53.             RETURN
  54.       IF ZJumpSearching THEN _
  55.          ZWasDF$ = ZOutTxt$ : _
  56.          CALL AllCaps (ZWasDF$) : _
  57.          IF INSTR(ZWasDF$,ZJumpTo$) = 0 THEN _
  58.             RETURN _
  59.          ELSE CALL CheckColor (ZOutTxt$,ZJumpTo$,"") : _
  60.               ZJumpSearching = ZFalse
  61.       ZSubParm = 5
  62.       CALL TPut
  63.       WasX = 1
  64.       CALL AskMore ("",ZTrue,ZTrue,WasX,ZFalse)
  65.       IF ZSubParm = -1 THEN _                                        ' RH070402
  66.          GOTO 57102 _                                                ' RH070402
  67.       ELSE IF ZNo THEN _                                             ' RH070402
  68.          GOTO 57101                                                  ' RH070402
  69.       RETURN
  70.  
  71. ------------------------[ RH070401]-------------------------
  72.  
  73. Problem:  When SysOp views callers file on another node, thereafter
  74. his own logging to caller's file goes to the other node's callers.
  75.  
  76. Solution:  Change RBBSSUB3.BAS as follows:
  77.  
  78. 57102 ZJumpSupported = ZFalse
  79.       IF OrigCal$ <> ZCallersFile$ THEN _                            ' RH070401
  80.          ZCallersFile$ = OrigCal$ : _
  81.          CALL SetCall
  82.       END SUB
  83.  
  84. ------------------------[ BH070401]-------------------------
  85.  
  86. Problem:  "[CBAUD]" can include a leading blank, which causes it not
  87. to work with some external protocols, like HSLink.
  88.  
  89. Solution:  Change RBBSSUB2.BAS as follows:
  90.  
  91. (line 1654)
  92.  
  93.             .
  94.             .
  95.             .
  96.       SUB SetBaud STATIC
  97.      IF ZCBaud$ = "" THEN _
  98.         ZCBaud$ = MID$(ZBaudRates$,(-5 * ZBPS),5) : _                ' BH070401
  99.         CALL Trim (ZCBaud$)                                          ' BH070401
  100.      Temp! = VAL(ZCBaud$)
  101.             .
  102.             .
  103.             .
  104.  
  105. ------------------------[ KG062401]-------------------------
  106.  
  107. Problem:  When say to download marked files in a personal directory,
  108. says unable to find "M".
  109.  
  110. Solution:  Change RBBSSUB3.BAS as follows:
  111.  
  112. 58181 MarkingFiles = ZFalse
  113.       IF (WasX$ = "D" OR WasX$ = "M") THEN IF CanDnld THEN _
  114.          MarkingFiles = (WasX$ = "M") : _
  115.          CALL AskItems ("DM",WasX$,ZTrue,"file",ZMarkedFiles$) : _   ' KG062401
  116.          IF ZWasQ = 0 THEN _
  117.             GOTO 58183
  118.       IF WasX$ = "*" THEN IF ZPersonalDnld THEN _
  119.          GOTO 58193
  120.  
  121. 58188 IF ProcessedNew OR MarkingFiles OR NOT ZListOnly THEN _
  122.          ProcessedNew = ZFalse : _
  123.          RETURN
  124.       ZUserIn$(0) = ""
  125.       WasI = ZAnsIndex              ' check whether in dir
  126.       WHILE WasI <= ZLastIndex
  127.          CALL AraAllCaps (ZUserIn$(),WasI)
  128.          ZWasZ$ = ZUserIn$(WasI)
  129.          CALL UnMarkItems (ZMarkedFiles$,WasI,ZLastIndex,WasX,ZTrue)
  130.          Temp$ = ZUserIn$(WasI)
  131.          CALL AllCaps (Temp$)                                        ' KG062401
  132. 'print "wasi=";wasi;" temp$=<";temp$;"> Zdef=<";zdefaultxfer$;">"
  133.          IsProto = (LEN(Temp$) = 1 AND _
  134.                     INSTR(ZDefaultXfer$,Temp$) > 0)
  135.          ZOK = IsProto
  136.          WasJ = LastRec + 1
  137.          WasX = INSTR(Temp$,".")
  138.          AltTemp$ = ""
  139.          IF NOT IsProto THEN _
  140.             IF WasX = 0 THEN _
  141.                AltTemp$ = Temp$ + "." + ZDefaultExtension$ _
  142.             ELSE IF WasX = LEN(Temp$) THEN _
  143.                     AltTemp$ = LEFT$(Temp$,WasX-1)
  144. 'print "58188 b4 while zok=";zok;" wasj=";wasj;" looking for <";temp$;">"
  145.          WHILE WasJ > 1 AND NOT ZOK
  146.             WasJ = WasJ - 1
  147.             GET #2,WasJ
  148.             GOSUB 58191
  149. 'print "bk 58191 canget=";catget;" ptp<";parttoprint$;">";:input xx$
  150.             IF CanGet THEN _
  151.                MID$(PartToPrint$,13,1) = " " : _
  152.                WasX$ = LEFT$(PartToPrint$,INSTR(PartToPrint$," ") - 1) : _
  153.                ZOK = (Temp$ = WasX$) : _
  154.                IF NOT ZOK THEN _
  155.                   IF AltTemp$ <> "" THEN _
  156.                      ZOK = (AltTemp$ = WasX$)
  157.          WEND
  158. 'print "58188 aft while zok=";zok;" wasj=";wasj;" looking for <";temp$;">":input xxx$
  159.          IF ZOK THEN _
  160.             GOSUB 58189 : _
  161.             IF ZOK OR IsProto THEN _
  162.                WasX$ = MID$(STR$(WasJ),2) : _
  163.                ZUserIn$(0) = ZUserIn$(0) + _
  164.                        WasX$ + _
  165.                        SPACE$(5 - LEN(WasX$))
  166.          IF NOT ZOK AND NOT IsProto THEN _
  167.             CALL QuickTPut1 (ZWasZ$ + " not found - omitted") : _
  168.             FOR WasK = WasI + 1 TO ZLastIndex : _
  169.                ZUserIn$(WasK - 1) = ZUserIn$(WasK) : _
  170.             NEXT : _
  171.             ZLastIndex = ZLastIndex - 1 : _
  172.             WasI = WasI - 1
  173.          WasI = WasI + 1
  174.       WEND
  175.       ZWasQ = ZLastIndex
  176. 'print "end 58188 zlastindex=";zlastindex;" zok=";zok
  177.       RETURN
  178.  
  179. ------------------------[ KG062301]-------------------------
  180.  
  181. Problem:  When you stack message numbers, Read reads exactly those
  182. messages.   But S)can and T)opic do not confine themselves to the
  183. numbers.  Instead, "s 5" acts like "s 5+".
  184.  
  185. Solution:  Change RBBS-PC.BAS as follows:
  186.  
  187. 4380 WasA1$ = "Msg #" + _
  188.            STR$(LowMsgNumber) + _
  189.            "-" + _
  190.            MID$(STR$(ZMsgPtr(ActiveMessages,2)),2) + _
  191.            " (H)lp,S)ince,L)ast" + _
  192.            LEFT$(",G)lobal",8*(ZLinkedConf$ ="" OR ZGlobalRead)+8)
  193.      CALL SkipLine (-QuickScanMsgs)                                  ' KG062301
  194.      IF ZGlobalRead THEN _
  195.         CALL QuickTPut1 ("Reading globally")
  196.      IF AddressedToUser OR ToRequested OR FromRequested THEN _
  197.         ZWasY$ = LEFT$("TO",-2*(ToRequested OR AddressedToUser)) + _
  198.              LEFT$("/",-AddressedToUser) + _
  199.              LEFT$("FROM",-4*(FromRequested OR AddressedToUser)) : _
  200.         CALL QuickTPut1 ("Include only msgs "+ZWasY$+" you.  Read what msgs (? for help)") _
  201.      ELSE WasA1$ = WasA1$ + ",T)o,F)rom,M)" : _
  202.           IF ReadMsgs AND ZMarkedMsgs$ <> "" THEN _
  203.              WasA1$ = WasA1$ + "arked" _
  204.           ELSE WasA1$ = WasA1$ + "ine"
  205.      IF SearchString$ = "" THEN _
  206.         WasA1$ = WasA1$ + _
  207.              ", text" _
  208.      ELSE CALL QuickTPut1 ("Include only msgs with text " + SearchString$ + ".  Read what msgs (? for help)")
  209.  
  210. 4418 ZWasA = INSTR("FfTt",ZUserIn$(ZAnsIndex))
  211.      IF ZWasA > 0 THEN _
  212.         ToRequested = (ZWasA > 2) : _
  213.         FromRequested = (ZWasA < 3) : _
  214.         GOTO 4370
  215.      IF CurMsg = 0 THEN _
  216.         IF SearchHeader$ <> "" THEN _
  217.            GOTO 4370 _
  218.         ELSE SearchString$ = ZUserIn$(ZAnsIndex) : _
  219.              SearchCt = 0 : _
  220.              CALL AllCaps (SearchString$) : _
  221.              CALL Remove (SearchString$,CHR$(34) + CHR$(39)) : _
  222.              SearchHeader$ = SearchString$ : _
  223.              SubInHeader$ = SearchHeader$ : _
  224.              GOTO 4370
  225.      CALL SkipLine (-ReadMsgs)                                       ' KG062301
  226.  
  227. 4630   CALL AskMore (",M)ark, #(s) to read",ZTrue,ZTrue,WasXX,ZFalse)
  228.        IF ZWasQ = 0 OR ZYes THEN _
  229.           GOTO 4631
  230.        IF ZNo THEN _
  231.           RETURN
  232.        IF ZSubParm = -1 THEN _
  233.           RETURN 10595
  234.        IF ZRet THEN _
  235.           RETURN
  236.        ZWasZ$ = ZUserIn$(1)
  237.        CALL AllCaps (ZWasZ$)
  238.        IF ZWasZ$ = "M" THEN _
  239.           ZLastIndex = ZWasQ : _
  240.           ZAnsIndex = 1 : _
  241.           CALL AskItems ("M",ZWasZ$,ZTrue,"msg",ZMarkedMsgs$)
  242.        IF VAL(ZWasZ$) > 0 THEN _
  243.           FOR WasI = ZWasQ TO 1 STEP -1 : _
  244.              ZUserIn$(WasI + 1) = ZUserIn$(WasI) : _
  245.           NEXT : _
  246.           ZUserIn$(1) = MID$(ZAllOpts$,INSTR(ZOrigCommands$,"R"),1) : _
  247.           ZLastIndex = ZWasQ + 1 : _
  248.           ZAnsIndex = 1 : _
  249.           RETURN 1235                                                ' KG062301
  250. 4631   IF NOT Forward AND NOT Reverse THEN _                         ' KG062301
  251.           GOTO 4370                                                  ' KG062301
  252.         CALL CheckCarrier                                            ' KG062301
  253.        IF ZSubParm THEN _
  254.           RETURN 10595
  255.        IF ZRet THEN _
  256.           RETURN
  257.  
  258.